Internet Store and Ecommerce Solution Provider - BizHosting.com
Choose an ISP: NetZero High Speed Internet Dial up $14.95 or NetZero Internet Service $9.95

[ Back ] [ Home ] [ Up ]

إيقاف أو إعادة تشغيل الجهاز

أضف التالي في موديل

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

 

لإيقاف الجهاز ضع التالي في المكان المناسب

(t& = ExitWindowsEx(EWX_SHUTDOWN, 1

لإعادة تشغيل الجهاز ضع التالي في المكان المناسب

(t& = ExitWindowsEx(EWX_REBOOT, 2

لتسجيل خروج ضع التالي في المكان المناسب

(t& = ExitWindowsEx(EWX_LOGOFF, 0